home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / lang / SmallEiffel.lha / SmallEiffel / bin_c / compile_to_jvm1.c < prev    next >
C/C++ Source or Header  |  1998-12-22  |  16KB  |  799 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.79)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "compile_to_jvm.h"
  9. T176 M176={176,NULL,NULL,NULL,NULL};
  10. T110 M110={NULL,NULL};
  11. T280 M280={280,NULL,NULL,NULL,NULL};
  12. T79 M79={NULL,0,0,0};
  13. T219 M219={NULL,NULL,NULL,NULL,NULL,0};
  14. T225 M225={225,NULL,0,0,0};
  15. T224 M224={224,NULL,NULL,NULL,NULL};
  16. T217 M217={217,NULL,NULL,NULL,NULL,NULL,NULL};
  17. T135 M135={135,NULL,NULL,NULL,NULL,0};
  18. T173 M173={173,NULL,0,0};
  19. T287 M287={287,NULL,NULL};
  20. T76 M76={0,0,NULL,0,0,NULL};
  21. T326 M326={NULL};
  22. T321 M321={NULL,NULL};
  23. T70 M70={NULL,NULL};
  24. T75 M75={NULL,NULL,0,NULL,NULL,0,0,0,0};
  25. T315 M315={315,NULL};
  26. T291 M291={NULL,NULL,NULL,NULL,NULL,0};
  27. T254 M254={254,NULL,NULL,NULL,NULL};
  28. T122 M122={122,NULL,NULL,NULL,NULL,0};
  29. T39 M39={0,0,0,0};
  30. T178 M178={178,NULL,0};
  31. T274 M274={274,NULL};
  32. T272 M272={272,NULL};
  33. T282 M282={282,NULL,NULL,NULL,NULL,0};
  34. T381 M381={381,NULL,0,0};
  35. T88 M88={NULL,0,0};
  36. T141 M141={141,NULL,NULL,NULL};
  37. T303 M303={303};
  38. T72 M72={NULL,NULL,NULL};
  39. T285 M285={285,NULL,0,NULL};
  40. T174 M174={174,NULL,NULL,NULL,NULL,NULL,NULL};
  41. T191 M191={191,NULL,NULL};
  42. T65 M65={NULL,NULL,0,NULL,NULL,0,0,0,0};
  43. T53 M53={53,NULL,NULL,NULL,NULL,0,NULL,NULL};
  44. T87 M87={NULL,NULL};
  45. T106 M106={NULL,NULL,NULL,NULL,NULL};
  46. T199 M199={NULL,NULL};
  47. T197 M197={197,NULL,NULL};
  48. T112 M112={NULL,0,0};
  49. T250 M250={250,NULL,NULL,NULL};
  50. T71 M71={0,0,0,0,0,NULL,0,NULL,0,0,NULL,0,0,NULL,NULL,0,0,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,0};
  51. T116 M116={116,NULL,NULL,NULL,NULL,0};
  52. T373 M373={373,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL,NULL,NULL,NULL,NULL};
  53. T168 M168={168,NULL,NULL,NULL,NULL};
  54. T279 M279={279,NULL,NULL,NULL,NULL,NULL};
  55. T195 M195={195,NULL,0,0,0};
  56. T99 M99={NULL,0,0,0};
  57. T206 M206={206,NULL,0,0};
  58. T148 M148={148,NULL,NULL,NULL};
  59. T222 M222={222,NULL,NULL};
  60. T159 M159={159,NULL,NULL};
  61. T182 M182={182,NULL,NULL};
  62. T273 M273={273,NULL};
  63. T124 M124={124,NULL,NULL,NULL,NULL,0};
  64. T265 M265={NULL,0,0,0};
  65. T38 M38={NULL,0};
  66. T296 M296={296,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  67. T22 M22={NULL,0,0,0,0};
  68. T256 M256={256,NULL,NULL,NULL,NULL,NULL};
  69. T335 M335=0;
  70. T48 M48={NULL,0,0};
  71. T44 M44={NULL,0,0};
  72. T126 M126={126,NULL,NULL,NULL,NULL,0};
  73. T26 M26={26,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL,NULL,NULL,NULL};
  74. T301 M301={301};
  75. T151 M151={151,NULL,NULL,NULL};
  76. T277 M277={277,NULL};
  77. T145 M145={145,NULL,NULL,NULL};
  78. T160 M160={160,NULL};
  79. T90 M90={NULL,NULL};
  80. T320 M320={320,NULL};
  81. T33 M33=NULL;
  82. T249 M249={249,NULL,NULL,NULL,NULL};
  83. T133 M133={133,NULL,NULL,NULL};
  84. T125 M125={125,NULL,NULL,NULL,NULL,0};
  85. T359 M359={359,NULL,0,0,0};
  86. T323 M323={NULL,0,0,0};
  87. T91 M91={NULL,0,0,0};
  88. T189 M189={189,NULL,0,0,0};
  89. T313 M313={NULL,0,0,0};
  90. T336 M336=0;
  91. T7 M7={NULL,0,0};
  92. T171 M171={171,NULL};
  93. T17 M17={0};
  94. T149 M149={149,NULL,NULL,0};
  95. T319 M319={319,NULL,NULL,NULL,NULL,NULL,0};
  96. T388 M388={388,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL,NULL,NULL,NULL,NULL,0,0,0};
  97. T284 M284={NULL,0,0,0};
  98. T215 M215={215,NULL,NULL,NULL,NULL,NULL,NULL};
  99. T295 M295={295,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  100. T230 M230={NULL,NULL,NULL,0};
  101. T103 M103={NULL,NULL};
  102. T308 M308={308,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL};
  103. T360 M360={NULL,NULL,NULL};
  104. T86 M86=NULL;
  105. T98 M98={NULL,NULL,NULL};
  106. T258 M258={258,NULL,NULL,NULL,NULL,NULL,NULL};
  107. T74 M74={NULL,0};
  108. T123 M123={123,NULL,NULL,NULL,NULL,0};
  109. T156 M156={156,NULL,NULL,NULL,NULL};
  110. T45 M45={0,NULL};
  111. T89 M89={NULL};
  112. T28 M28={0,0,0,0,0};
  113. T10 M10={0,NULL,NULL,NULL};
  114. T342 M342={NULL,NULL,0,NULL,NULL,0,0,0,0,0};
  115. T94 M94={NULL,NULL,0,NULL,NULL,0,0,0,0};
  116. T54 M54={54,NULL,0,0,0};
  117. T270 M270={270,NULL};
  118. T81 M81={NULL,NULL,NULL,NULL};
  119. T383 M383={NULL,NULL,0,NULL,NULL,0,0,0,0};
  120. T347 M347={NULL,NULL,0,NULL,NULL,0,0,0,0,0};
  121. T59 M59={NULL,0};
  122. T356 M356={356,NULL,0,0};
  123. T352 M352={352,NULL,0,0};
  124. T350 M350={350,NULL,0,0};
  125. T140 M140={140,NULL,NULL,NULL,NULL,0};
  126. T181 M181={181,NULL,NULL,NULL,NULL,NULL};
  127. T104 M104={NULL,NULL};
  128. T237 M237={NULL,NULL,NULL,NULL,NULL,NULL,0};
  129. T209 M209={209,NULL,NULL,NULL,NULL,NULL,NULL};
  130. T349 M349={349,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL,NULL,NULL,NULL};
  131. T85 M85={NULL,NULL};
  132. T368 M368={368,NULL,NULL};
  133. T318 M318={318,NULL};
  134. T105 M105={NULL,NULL,NULL,NULL};
  135. T288 M288={288,NULL,NULL,NULL};
  136. T384 M384={384,NULL,0,0};
  137. T212 M212={212,NULL,0,0};
  138. T202 M202={NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  139. T161 M161={161,NULL,NULL};
  140. T24 M24={NULL,0,0,0,0,0,0,0,NULL};
  141. T208 M208={0};
  142. T310 M310={310,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0};
  143. T21 M21={0,0,0};
  144. T82 M82={NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  145. T248 M248={248,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  146. T142 M142={142,NULL,NULL,NULL};
  147. T370 M370={NULL,0,0,0};
  148. T175 M175={NULL,0,0,0};
  149. T337 M337={NULL,NULL,0,NULL,NULL,0,0,0,0,0};
  150. T150 M150={150,NULL,NULL,NULL};
  151. T158 M158={158,NULL,NULL};
  152. T325 M325={NULL,NULL};
  153. T283 M283={NULL,NULL};
  154. T267 M267={267,NULL,NULL,NULL,NULL};
  155. T271 M271={271,NULL};
  156. T216 M216={216,NULL,NULL,NULL,NULL,NULL,NULL};
  157. T203 M203={203,NULL,NULL,NULL,NULL,NULL,NULL};
  158. T374 M374=NULL;
  159. T348 M348={348,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL,NULL,NULL,NULL,NULL};
  160. T275 M275={275,NULL};
  161. T97 M97={NULL};
  162. T96 M96={NULL,NULL};
  163. T214 M214={214,NULL,NULL,NULL,NULL,NULL,NULL};
  164. T40 M40={0};
  165. T302 M302={302};
  166. T367 M367={NULL};
  167. T136 M136={136,NULL,NULL,NULL,NULL,0};
  168. T187 M187={187,NULL,NULL,NULL,0,0};
  169. T322 M322={NULL,NULL};
  170. T379 M379={379,NULL,NULL};
  171. T127 M127={127,NULL,NULL,NULL,NULL,0};
  172. T129 M129={129,NULL,NULL,NULL,NULL,0};
  173. T247 M247={NULL,NULL,NULL,NULL,NULL};
  174. T261 M261={261,NULL,NULL};
  175. T344 M344={NULL,0,0};
  176. T68 M68={NULL,0,0};
  177. T83 M83={NULL,0,0,0};
  178. T73 M73={NULL,0,0,0};
  179. T239 M239={NULL,0,0,0};
  180. T232 M232={NULL,0,0,0};
  181. T264 M264={264,NULL,NULL,NULL,NULL};
  182. T177 M177={177,NULL,NULL};
  183. T365 M365={NULL,0,0,0};
  184. T340 M340={NULL,0,0,0};
  185. T184 M184={184,NULL,0,NULL};
  186. T108 M108={NULL,0,0,0};
  187. T242 M242={NULL,0,0,0};
  188. T387 M387={387,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL};
  189. T179 M179={179,NULL,NULL,NULL,NULL,NULL};
  190. T278 M278={278,NULL,NULL,NULL,NULL};
  191. T338 M338={NULL,0,0};
  192. T364 M364={NULL};
  193. T276 M276={276,NULL};
  194. T268 M268={268,NULL};
  195. T298 M298={298};
  196. T346 M346=NULL;
  197. T376 M376=NULL;
  198. T235 M235={235,NULL,NULL};
  199. T361 M361={361,NULL,0,0};
  200. T57 M57=NULL;
  201. T300 M300={300};
  202. T138 M138={138,NULL,NULL,NULL,NULL,0};
  203. T386 M386={386,NULL,NULL,NULL,NULL,NULL,NULL,0,0,NULL,NULL,NULL};
  204. T345 M345={0};
  205. T259 M259={259,NULL,NULL,NULL,NULL};
  206. T377 M377={377,NULL,0,0};
  207. T66 M66={NULL,0,0};
  208. T154 M154={154,NULL,0,0};
  209. T200 M200={NULL,0,0};
  210. T305 M305={305};
  211. T198 M198={198,NULL,NULL,NULL,NULL,0};
  212. T31 M31={0};
  213. T166 M166={166,NULL,NULL,NULL};
  214. T327 M327={NULL,0,0,0};
  215. T262 M262={262,NULL,NULL,NULL,NULL};
  216. T211 M211={211,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  217. T343 M343={NULL,0,0};
  218. T101 M101={NULL,0,0};
  219. T29 M29={0,0,0,0};
  220. T113 M113={113,NULL,NULL,NULL,NULL};
  221. T292 M292={292,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  222. T375 M375={NULL,NULL,0,NULL,NULL,0,0,0,0};
  223. T297 M297={297};
  224. T78 M78={NULL,NULL,NULL,NULL};
  225. T244 M244={244,NULL,NULL,0};
  226. T362 M362={0};
  227. T155 M155={155,NULL,NULL,NULL,NULL};
  228. T153 M153={153,NULL,NULL,NULL};
  229. T77 M77={NULL};
  230. T23 M23={NULL,0,0,NULL,NULL,0,NULL,0,0,NULL,NULL,NULL};
  231. T236 M236={236,NULL,NULL,NULL,NULL,NULL,NULL};
  232. T194 M194={194,NULL,NULL,NULL,0};
  233. T167 M167={167,NULL,NULL,NULL,NULL};
  234. T55 M55={55,NULL,0,0};
  235. T221 M221={NULL,0,0};
  236. T137 M137={137,NULL,NULL,NULL,NULL,0};
  237. T238 M238={NULL,NULL};
  238. T357 M357={357,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL,NULL};
  239. T223 M223={NULL,NULL,NULL,NULL,NULL};
  240. T329 M329={NULL,0,0};
  241. T47 M47=NULL;
  242. T220 M220={NULL,NULL,NULL,NULL};
  243. T114 M114={114,NULL,0,0,0};
  244. T251 M251={251,NULL,NULL,NULL};
  245. T333 M333={NULL,NULL,0,NULL,NULL,0,0,0,0,0};
  246. T331 M331={NULL,0,0};
  247. T245 M245={245,NULL,NULL,NULL,0,0};
  248. T290 M290={290,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  249. T128 M128={128,NULL,NULL,NULL,NULL,0};
  250. T130 M130={130,NULL,NULL,NULL,NULL,0};
  251. T131 M131={131,NULL,NULL,NULL};
  252. T307 M307={307,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0};
  253. T380 M380={380,NULL,NULL,NULL};
  254. T354 M354={354,NULL,NULL,NULL};
  255. T58 M58={NULL,0,0};
  256. T152 M152={NULL,NULL,NULL};
  257. T147 M147={147,NULL,NULL,NULL};
  258. T134 M134={134,NULL,NULL,NULL,NULL,0};
  259. T139 M139={139,NULL,NULL,NULL,NULL,0};
  260. T163 M163={163,NULL,NULL,NULL};
  261. T210 M210={210,NULL,NULL,NULL,NULL,NULL,NULL};
  262. T263 M263={263,NULL};
  263. T63 M63={0,NULL,NULL,NULL,0,0,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  264. T231 M231={NULL,NULL};
  265. T234 M234={234,NULL,NULL};
  266. T146 M146={146,NULL,NULL,NULL};
  267. T172 M172={172,NULL};
  268. T192 M192={192,NULL,0,NULL};
  269. T229 M229={229,NULL,NULL};
  270. T226 M226={226,NULL,NULL,NULL,NULL};
  271. T372 M372={372,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL,NULL};
  272. T311 M311={311,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL};
  273. T61 M61={0,NULL,0,0};
  274. T355 M355=0;
  275. T369 M369={369,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL,NULL,NULL,NULL};
  276.  
  277.  
  278. T7*se_ms(int c,char*e){
  279. T7*s=malloc(sizeof(T7));
  280. s->_count=c;
  281. s->_capacity=c+1;
  282. s->_storage=malloc(c+2);
  283. memcpy(s->_storage,e,c);
  284. return s;}
  285.  
  286.  
  287. T7*e2s(char*e){
  288. return se_ms(strlen(e),e);}
  289.  
  290.  
  291. char*s2e(T7*s){
  292. char*e=malloc(1+s->_count);
  293. memcpy(e,s->_storage,s->_count);
  294. e[s->_count]='\0';
  295. return e;}
  296. /*
  297. -- This file is  free  software, which  comes  along  with  SmallEiffel. This
  298. -- software  is  distributed  in the hope that it will be useful, but WITHOUT 
  299. -- ANY  WARRANTY;  without  even  the  implied warranty of MERCHANTABILITY or
  300. -- FITNESS  FOR A PARTICULAR PURPOSE. You can modify it as you want, provided
  301. -- this header is kept unaltered, and a notification of the changes is added.
  302. -- You  are  allowed  to  redistribute  it and sell it, alone or as a part of 
  303. -- another product.
  304. --          Copyright (C) 1994-98 LORIA - UHP - CRIN - INRIA - FRANCE
  305. --            Dominique COLNET and Suzanne COLLIN - colnet@loria.fr 
  306. --                       http://www.loria.fr/SmallEiffel
  307. --
  308. */
  309.  
  310. /*
  311.   This file (boost.c) is automatically included when `run_control.boost' is
  312.   true (ie. only for mode -boost).
  313. */
  314.  
  315. void se_print_run_time_stack (void) {
  316.   fprintf(SE_ERR,"Eiffel program crash at run time.\n");
  317.   fprintf(SE_ERR,"No trace when using option \"-boost\"\n");
  318. }
  319.  
  320. void sigrsp(int sig) {
  321.   printf("Received signal %d (man signal).\n",sig);
  322.   se_print_run_time_stack();
  323.   exit(1);
  324. }
  325.  
  326.  
  327. T6 r6_ix_not(T6 C){
  328. T6 R=0;
  329. /*[IF*/
  330. if(C){
  331. }
  332. else{
  333. R=1;
  334. }
  335. /*FI]*/
  336. return R;
  337. }
  338.  
  339.  
  340. void r2append_in(T2 C,T0* a1){
  341. T2 _i=0;
  342. T2 _val=0;
  343. /*[IF*/
  344. if((C)==(0)){
  345. r7extend(((T7*)a1),'0');
  346. }
  347. else{
  348. /*[IF*/
  349. if((C)>(0)){
  350. _i=((((T7*)a1))->_count/*4*/)+(1);
  351. _val=C;
  352. while (!((_val)==(0))) {
  353. r7extend(((T7*)a1),r2digit((_val)%(10)));
  354. _val=(_val)/(10);
  355. }
  356. }
  357. else{
  358. r7extend(((T7*)a1),'\55');
  359. _i=((((T7*)a1))->_count/*4*/)+(1);
  360. _val=C;
  361. while (!((_val)==(0))) {
  362. r7extend(((T7*)a1),r2digit(-((_val)%(10))));
  363. _val=(_val)/(10);
  364. }
  365. }
  366. /*FI]*/
  367. _val=(((T7*)a1))->_count/*4*/;
  368. while (!((_i)>=(_val))) {
  369. r7swap(((T7*)a1),_i,_val);
  370. _val=(_val)-(1);
  371. _i=(_i)+(1);
  372. }
  373. }
  374. /*FI]*/
  375. }
  376.  
  377.  
  378. T0* r2to_string(T2 C){
  379. T0* R=NULL;
  380. {T7*n=malloc(sizeof(*n));
  381. *n=M7;
  382. r7make(n,0);
  383. R=(T0*)n;
  384. }
  385. r2append_in(C,R);
  386. return R;
  387. }
  388.  
  389.  
  390. T3 r2hexadecimal_digit(T2 C){
  391. T3 R=0;
  392. /*[IF*/
  393. if((C)<=(9)){
  394. R=r2digit(C);
  395. }
  396. else{
  397. R=((T3)((((unsigned char)'A'))+((C)-(10))));
  398. }
  399. /*FI]*/
  400. return R;
  401. }
  402.  
  403.  
  404. T2 r2min(T2 C,T2 a1){
  405. T2 R=0;
  406. /*[IF*/
  407. if((C)<(a1)){
  408. R=C;
  409. }
  410. else{
  411. R=a1;
  412. }
  413. /*FI]*/
  414. return R;
  415. }
  416.  
  417.  
  418. T3 r2digit(T2 C){
  419. T3 R=0;
  420. R=((T3)((C)+(((unsigned char)'0'))));
  421. return R;
  422. }
  423.  
  424.  
  425. T2 r2_px_94(T2 C,T2 a1){
  426. T2 R=0;
  427. /*[IF*/
  428. if((a1)==(0)){
  429. R=1;
  430. }
  431.  else if(((a1)%(2))==(0)){
  432. R=r2_px_94((C)*(C),(a1)/(2));
  433. }
  434. else{
  435. R=(C)*(r2_px_94(C,(a1)-(1)));
  436. }
  437. /*FI]*/
  438. return R;
  439. }
  440.  
  441.  
  442. T2 r2max(T2 C,T2 a1){
  443. T2 R=0;
  444. /*[IF*/
  445. if((a1)<(C)){
  446. R=C;
  447. }
  448. else{
  449. R=a1;
  450. }
  451. /*FI]*/
  452. return R;
  453. }
  454.  
  455.  
  456. T2 r2hash_code(T2 C){
  457. T2 R=0;
  458. /*[IF*/
  459. if((C)<(0)){
  460. R=-((C)+(1));
  461. }
  462. else{
  463. R=C;
  464. }
  465. /*FI]*/
  466. return R;
  467. }
  468.  
  469.  
  470. T3 r3to_upper(T3 C){
  471. T3 R=0;
  472. /*[IF*/
  473. if((((unsigned char)C))<(97)){
  474. R=C;
  475. }
  476.  else if((((unsigned char)C))>(122)){
  477. R=C;
  478. }
  479. else{
  480. R=((T3)((((unsigned char)C))-(32)));
  481. }
  482. /*FI]*/
  483. return R;
  484. }
  485.  
  486.  
  487. T6 r3is_separator(T3 C){
  488. T6 R=0;
  489. {int z1=C;
  490.  
  491. if((0==z1)||((9<=z1)&&(z1<=10))||(13==z1)||(32==z1)){
  492. R=1;
  493. }
  494. }
  495. return R;
  496. }
  497.  
  498.  
  499. T3 r3to_lower(T3 C){
  500. T3 R=0;
  501. /*[IF*/
  502. if((((unsigned char)C))<(65)){
  503. R=C;
  504. }
  505.  else if((((unsigned char)C))>(90)){
  506. R=C;
  507. }
  508. else{
  509. R=((T3)((((unsigned char)C))+(32)));
  510. }
  511. /*FI]*/
  512. return R;
  513. }
  514.  
  515.  
  516. T6 r3same_as(T3 C,T3 a1){
  517. T6 R=0;
  518. /*[IF*/
  519. if((C)==(a1)){
  520. R=1;
  521. }
  522. else{
  523. {int z1=((unsigned char)C);
  524.  
  525. if(((65<=z1)&&(z1<=90))){
  526. R=(((unsigned char)C))==((((unsigned char)a1))-(32));
  527. }
  528.  else 
  529. if(((97<=z1)&&(z1<=122))){
  530. R=(((unsigned char)C))==((((unsigned char)a1))+(32));
  531. }
  532. }
  533. }
  534. /*FI]*/
  535. return R;
  536. }
  537.  
  538.  
  539. T6 r3_px_6261(T3 C,T3 a1){
  540. T6 R=0;
  541. R=(((unsigned char)C))>=(((unsigned char)a1));
  542. return R;
  543. }
  544.  
  545.  
  546. T6 r3_px_60(T3 C,T3 a1){
  547. T6 R=0;
  548. R=(((unsigned char)C))<(((unsigned char)a1));
  549. return R;
  550. }
  551.  
  552.  
  553. T6 r3is_letter(T3 C){
  554. T6 R=0;
  555. {int z1=C;
  556.  
  557. if(((65<=z1)&&(z1<=90))||((97<=z1)&&(z1<=122))){
  558. R=1;
  559. }
  560. }
  561. return R;
  562. }
  563.  
  564.  
  565. T6 r3is_digit(T3 C){
  566. T6 R=0;
  567. {int z1=C;
  568.  
  569. if(((48<=z1)&&(z1<=57))){
  570. R=1;
  571. }
  572. }
  573. return R;
  574. }
  575.  
  576.  
  577. T2 r3value(T3 C){
  578. T2 R=0;
  579. R=(((unsigned char)C))-(48);
  580. return R;
  581. }
  582.  
  583.  
  584. T366 r366realloc(T366 C,T2 a1,T2 a2){
  585. T366 R=NULL;
  586. R=calloc(a2,sizeof(T0*));
  587. r366copy_from(R,C,(a1)-(1));
  588. return R;
  589. }
  590.  
  591.  
  592. void r366set_all_with(T366 C,T0* a1,T2 a2){
  593. T2 _i=0;
  594. _i=a2;
  595. while (!((_i)<(0))) {
  596. (C)[_i]=(a1);
  597. _i=(_i)-(1);
  598. }
  599. }
  600.  
  601.  
  602. T2 r366fast_index_of(T366 C,T0* a1,T2 a2){
  603. T2 R=0;
  604. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  605. R=(R)+(1);
  606. }
  607. return R;
  608. }
  609.  
  610.  
  611. void r366copy_from(T366 C,T366 a1,T2 a2){
  612. T2 _i=0;
  613. _i=a2;
  614. while (!((_i)<(0))) {
  615. (C)[_i]=((a1)[_i]);
  616. _i=(_i)-(1);
  617. }
  618. }
  619.  
  620.  
  621. T341 r341realloc(T341 C,T2 a1,T2 a2){
  622. T341 R=NULL;
  623. R=calloc(a2,sizeof(T0*));
  624. r341copy_from(R,C,(a1)-(1));
  625. return R;
  626. }
  627.  
  628.  
  629. void r341set_all_with(T341 C,T0* a1,T2 a2){
  630. T2 _i=0;
  631. _i=a2;
  632. while (!((_i)<(0))) {
  633. (C)[_i]=(a1);
  634. _i=(_i)-(1);
  635. }
  636. }
  637.  
  638.  
  639. T2 r341fast_index_of(T341 C,T0* a1,T2 a2){
  640. T2 R=0;
  641. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  642. R=(R)+(1);
  643. }
  644. return R;
  645. }
  646.  
  647.  
  648. void r341copy_from(T341 C,T341 a1,T2 a2){
  649. T2 _i=0;
  650. _i=a2;
  651. while (!((_i)<(0))) {
  652. (C)[_i]=((a1)[_i]);
  653. _i=(_i)-(1);
  654. }
  655. }
  656.  
  657.  
  658. void r9fast_replace_all(T9 C,T3 a1,T3 a2,T2 a3){
  659. T2 _i=0;
  660. _i=a3;
  661. while (!((_i)<(0))) {
  662. /*[IF*/
  663. if((a1)==((C)[_i])){
  664. (C)[_i]=(a2);
  665. }
  666. /*FI]*/
  667. _i=(_i)-(1);
  668. }
  669. }
  670.  
  671.  
  672. T6 r9fast_memcmp(T9 C,T9 a1,T2 a2){
  673. T6 R=0;
  674. T2 _i=0;
  675. R=1;
  676. _i=(a2)-(1);
  677. while (!(((_i)<(0))||(!(R)))) {
  678. R=((C)[_i])==((a1)[_i]);
  679. _i=(_i)-(1);
  680. }
  681. return R;
  682. }
  683.  
  684.  
  685. T9 r9realloc(T9 C,T2 a1,T2 a2){
  686. T9 R=NULL;
  687. R=calloc(a2,sizeof(T3));
  688. r9copy_from(R,C,(a1)-(1));
  689. return R;
  690. }
  691.  
  692.  
  693. void r9copy_at(T9 C,T2 a1,T9 a2,T2 a3){
  694. T2 _i2=0;
  695. T2 _i1=0;
  696. _i1=a1;
  697. while (!((_i2)==(a3))) {
  698. (C)[_i1]=((a2)[_i2]);
  699. _i2=(_i2)+(1);
  700. _i1=(_i1)+(1);
  701. }
  702. }
  703.  
  704.  
  705. T2 r9fast_index_of(T9 C,T3 a1,T2 a2){
  706. T2 R=0;
  707. while (!(((R)>(a2))||((a1)==((C)[R])))) {
  708. R=(R)+(1);
  709. }
  710. return R;
  711. }
  712.  
  713.  
  714. void r9copy_from(T9 C,T9 a1,T2 a2){
  715. T2 _i=0;
  716. _i=a2;
  717. while (!((_i)<(0))) {
  718. (C)[_i]=((a1)[_i]);
  719. _i=(_i)-(1);
  720. }
  721. }
  722.  
  723.  
  724. T111 r111realloc(T111 C,T2 a1,T2 a2){
  725. T111 R=NULL;
  726. R=calloc(a2,sizeof(T0*));
  727. r111copy_from(R,C,(a1)-(1));
  728. return R;
  729. }
  730.  
  731.  
  732. void r111set_all_with(T111 C,T0* a1,T2 a2){
  733. T2 _i=0;
  734. _i=a2;
  735. while (!((_i)<(0))) {
  736. (C)[_i]=(a1);
  737. _i=(_i)-(1);
  738. }
  739. }
  740.  
  741.  
  742. T2 r111fast_index_of(T111 C,T0* a1,T2 a2){
  743. T2 R=0;
  744. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  745. R=(R)+(1);
  746. }
  747. return R;
  748. }
  749.  
  750.  
  751. void r111copy_from(T111 C,T111 a1,T2 a2){
  752. T2 _i=0;
  753. _i=a2;
  754. while (!((_i)<(0))) {
  755. (C)[_i]=((a1)[_i]);
  756. _i=(_i)-(1);
  757. }
  758. }
  759.  
  760.  
  761. T102 r102realloc(T102 C,T2 a1,T2 a2){
  762. T102 R=NULL;
  763. R=calloc(a2,sizeof(T0*));
  764. r102copy_from(R,C,(a1)-(1));
  765. return R;
  766. }
  767.  
  768.  
  769. void r102clear_all(T102 C,T2 a1){
  770. T2 _i=0;
  771. T0* _v=NULL;
  772. _i=a1;
  773. while (!((_i)<(0))) {
  774. (C)[_i]=(_v);
  775. _i=(_i)-(1);
  776. }
  777. }
  778.  
  779.  
  780. void r102set_all_with(T102 C,T0* a1,T2 a2){
  781. T2 _i=0;
  782. _i=a2;
  783. while (!((_i)<(0))) {
  784. (C)[_i]=(a1);
  785. _i=(_i)-(1);
  786. }
  787. }
  788.  
  789.  
  790. void r102copy_from(T102 C,T102 a1,T2 a2){
  791. T2 _i=0;
  792. _i=a2;
  793. while (!((_i)<(0))) {
  794. (C)[_i]=((a1)[_i]);
  795. _i=(_i)-(1);
  796. }
  797. }
  798.  
  799.